procedure TForm1.Button1Click(Sender: TObject);
var z:extended; s:string;
begin
randomize;
z:=random;
s:=floattostr(z);
edit1.Text:=s;
with image1 do
      begin
      with canvas do
            begin
            brush.Style:=bssolid;
            brush.Color:=clwhite;
            fillrect(clientrect);
            if z<0.2 then canvas.Rectangle(10,60,150,100){prjamoug}
            else
              if z<0.4 then canvas.Ellipse(10,10,150,150){okr}
              else
                if z<0.6 then
                          begin
                          moveto(30,70); lineto(50,70);
                          moveto(60,70); lineto(100,70);
                          moveto(50,65); lineto(50,75);
                          moveto(60,55); lineto(60,85);
                            {kondens}

                          end
              else
                  if z<0.8 then canvas.Rectangle(10,60,70,120){kv}
                  else
                  begin
                  moveto(30,70); lineto(50,70);
                  moveto(50,55); lineto(50,85);
                  moveto(50,70); lineto(70,90);
                  moveto(50,70); lineto(70,50);
                  moveto(50,70); lineto(60,75);
                  moveto(50,70); lineto(55,80);
                  end;
end;
end;
end;

end.